From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 7 May 1994 02:33:33 +0000 (+0000)
Subject: (hexl-insert-char): Increment `address' for every character inserted.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~91675
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=ab180fb6f258ac0db4b5e4b058b98cb381d224be;p=emacs.git

(hexl-insert-char): Increment `address' for every character inserted.
---

diff --git a/lisp/hexl.el b/lisp/hexl.el
index ebb283f6e01..d7e7cd44baa 100644
--- a/lisp/hexl.el
+++ b/lisp/hexl.el
@@ -557,9 +557,9 @@ You may also type up to 3 octal digits, to insert a character with that code"
        (+ (* (/ address 16) 68) 52 (% address 16)))
       (delete-char 1)
       (insert (hexl-printable-character ch))
-      (if (eq address hexl-max-address)
-	  (hexl-goto-address address)
-	(hexl-goto-address (1+ address)))
+      (or (eq address hexl-max-address)
+	  (setq address (1+ address)))
+      (hexl-goto-address address)
       (setq num (1- num)))))
 
 ;; hex conversion